home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00059.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  796 b   |  26 lines
  1. global gmasterfolderpath, gFileName, theQTMovie, gIntroMovieRect, gIntroMovieFlag, onIBM, gSoundLevel, gIntroText2, theBlitPict, gIntroPictRect
  2.  
  3. on enterFrame
  4.   if gIntroPictRect <> EMPTY then
  5.     set pictfilepath to gmasterfolderpath & getProp(gFileName, #INTROP)
  6.     blitPictDrawFile(theBlitPict, pictfilepath, gIntroPictRect, "copy", 0, 0)
  7.   end if
  8.   if gIntroMovieRect <> EMPTY then
  9.     set gIntroMovieFlag to 1
  10.     QTOpenMovie(theQTMovie, gmasterfolderpath & getProp(gFileName, #INTROM), gIntroMovieRect)
  11.     if the movieid of theQTMovie contains "Error" then
  12.       exit
  13.     end if
  14.     setSoundLevel()
  15.     QTSetCurrTime(theQTMovie, 0)
  16.   else
  17.     set the text of cast 37 to gIntroText2
  18.     go("introPause")
  19.   end if
  20.   watchoff()
  21. end
  22.  
  23. on exitFrame
  24.   set the text of cast 37 to gIntroText2
  25. end
  26.